home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b1.d64
/
lower'to'upper.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
338b
|
13 lines
9000 //
9010 PROC LOWER'TO'UPPER(REF A$) CLOSED
9020 DIM Z$ OF 26, C$ OF 1
9030 Z$:="┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌"
9040 FOR X:=1 TO LEN(A$) DO
9050 C$:=A$(X)
9060 IF C$>="A" AND C$<="Z" THEN
9070 C$:=Z$(C$ IN "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
9080 A$(X):=C$
9090 ENDIF
9100 ENDFOR X
9110 ENDPROC LOWER'TO'UPPER